home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1986 March / Ahoy_Magazine_86-03_1986_Double_L.d64 / mq us hist (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  10KB  |  248 lines
  1. 1 rem *** u.s. history module ***
  2. 2 rem put lists in historical order
  3. 3 rem (in direct mode, type 'poke 53265,peek(53265)or 64' to make shifted
  4. 4 rem characters show up when typing them in
  5. 10 ff$="u.s.history"
  6. 11 ff$="@0:q "+left$(ff$,14)+",s,w"
  7. 12 open 2,8,2,ff$
  8. 15 z$=chr$(13)
  9. 17 poke 53265,peek(53265)or 64
  10. 19 rem * how many quizzes?
  11. 20 nq=8:print#2,nq
  12. 30 for i=1 to nq:read tn:print#2,tn
  13. 32 for j=0 to 3:read a:print#2,a:poke 53281+j,a:next:poke 53280,peek(53281)
  14. 34 for j=0 to 3:read fc$(j):print#2,fc$(j):next
  15. 36 read a$,b$:a$=fc$(3)+a$:b$=fc$(0)+b$:print#2,a$z$b$:print"[147]"a$:print b$
  16. 38 read a$,b$:a$=fc$(1)+a$:b$=fc$(1)+b$:print#2,a$z$b$:print a$b$
  17. 40 for j=1 to tn
  18. 42 read a$,b$:c$="":a$=" "+a$:for k=1 to len(b$):a=asc(mid$(b$,k,1))
  19. 44 if a<32 or a>95 then a=160:goto 47
  20. 45 if a>63 then a=a+32:goto 47
  21. 46 a=a+128
  22. 47 c$=c$+chr$(a):next:b$="[160]"+c$+"[146]"
  23. 49 print#2,a$z$b$:print ""fc$(2)a$"[146]"fc$(3)b$:next:next
  24. 50 close 2:print "";:end
  25. 99 rem ** quiz #1
  26. 100 data 13,6,8,5,7,"","[158]","[158]",""
  27. 101 rem * quiz title
  28. 102 data "[160][177][179][160][211][212][193][212][197][211][160][210][193][212][201][198][217][160][212][200][197][160][206][197][215][160][195][207][206][211][212][201][212][213][212][201][207][206][160][146]"
  29. 103 rem * format line
  30. 104 data " put in order^from the first to ratify "
  31. 105 rem * column headers
  32. 106 data "[160][211][212][193][212][197][211][160][160][160][160][160][160][160][160][160][160][160][160][160][160]"
  33. 108 data "[160][196][193][212][197][160][210][193][212][201][198][201][197][196][160][160][160][160]"
  34. 109 rem ** quiz items
  35. 110 data "delaware            ","7 december 1787  "
  36. 111 data "pennsylvania        ","12 december 1787 "
  37. 112 data "new jersey          ","18 december 1787 "
  38. 113 data "georgia             ","2 january 1788   "
  39. 114 data "connecticut         ","9 january 1788   "
  40. 115 data "massachusetts       ","6 february 1788  "
  41. 116 data "maryland            ","28 april 1788    "
  42. 117 data "south carolina      ","23 may 1788      "
  43. 118 data "new hampshire       ","21 june 1788     "
  44. 119 data "virginia            ","26 june 1788     "
  45. 120 data "new york            ","26 july 1788     "
  46. 121 data "north carolina      ","21 november 1789 "
  47. 122 data "rhode island        ","29 may 1790      "
  48. 199 rem ** quiz #2
  49. 200 data 20,14,7,4,8,"","[144]","[144]",""
  50. 201 rem * quiz title
  51. 202 data "[160][160][212][200][197][160][198][201][210][211][212][160][178][176][160][208][210][197][211][201][196][197][206][212][211][160][207][198][160][212][200][197][160][213][174][211][174][160][160][146]"
  52. 203 rem * format line
  53. 204 data "  those inaugurated from 1789 to 1881  "
  54. 205 rem * headers
  55. 206 data "[160][208][210][197][211][201][196][197][206][212][167][211][160][206][193][205][197][160][160][160][160]"
  56. 208 data "[160][160][163][255][217][197][193][210][255][160][160][198][193][195][212][211][160][160]"
  57. 209 rem ** quiz items in correct order
  58. 210 data "george washington   "," 1^1789        f2"
  59. 211 data "john adams          "," 2^1797     vp f1"
  60. 212 data "thomas jefferson    "," 3^1801     vp d2"
  61. 213 data "james madison       "," 4^1809        d2"
  62. 214 data "james monroe        "," 5^1817        d2"
  63. 215 data "john quincy adams   "," 6^1825        d1"
  64. 216 data "andrew jackson      "," 7^1829        d2"
  65. 217 data "martin van buren    "," 8^1837     vp d1"
  66. 218 data "william h.harrison  "," 9^1841 dio    w1"
  67. 219 data "john tyler          ","10^1841     vp+w0"
  68. 220 data "james k.polk        ","11^1845        d1"
  69. 221 data "zachary taylor      ","12^1849 dio    w1"
  70. 222 data "millard fillmore    ","13^1850     vp+w0"
  71. 223 data "franklin pierce     ","14^1853        d1"
  72. 224 data "james buchanan      ","15^1857        d1"
  73. 225 data "abraham lincoln     ","16^1861 kio    r2"
  74. 226 data "andrew johnson      ","17^1865     vp+d0"
  75. 227 data "ulysses s.grant     ","18^1869        r2"
  76. 228 data "rutherford b.hayes  ","19^1877        r1"
  77. 229 data "james a.garfield    ","20^1881 kio    r1"
  78. 299 rem ** quiz #3
  79. 300 data 19,2,4,7,1,"","[144]","[144]",""
  80. 301 rem * quiz title
  81. 302 data "[160][160][160][212][200][197][160][178][176][160][205][207][211][212][160][210][197][195][197][206][212][160][213][174][211][174][208][210][197][211][201][196][197][206][212][211][160][160][160][146]"
  82. 303 rem * format line
  83. 304 data "  those inaugurated from 1881 to 1981  "
  84. 305 rem * headers
  85. 306 data "[160][208][210][197][211][201][196][197][206][212][167][211][160][206][193][205][197][160][160][160][160]"
  86. 308 data "[160][160][163][255][217][197][193][210][255][160][160][198][193][195][212][211][160][160]"
  87. 309 rem ** quiz items in correct order
  88. 310 data "chester a.arthur    ","21^1881     vp+r0"
  89. 311 data "grover cleveland    ","22/24^1885/93  d2"
  90. 312 data "benjamin harrison   ","23^1889        r1"
  91. 313 data "william mckinley    ","25^1897 kio    r2"
  92. 314 data "theodore roosevelt  ","26^1901     vp+r1"
  93. 315 data "william howard taft ","27^1909        r1"
  94. 316 data "woodrow wilson      ","28^1913        d2"
  95. 317 data "warren g.harding    ","29^1921 dio    r1"
  96. 318 data "calvin coolidge     ","30^1923     vp+r1"
  97. 319 data "herbert hoover      ","31^1929        r1"
  98. 320 data "franklin d.roosevelt","32^1933 dio    d4"
  99. 321 data "harry s truman      ","33^1945     vp+d1"
  100. 322 data "dwight d.eisenhower ","34^1953        r2"
  101. 323 data "john f.kennedy      ","35^1961 kio    d1"
  102. 324 data "lyndon b.johnson    ","36^1963     vp+d1"
  103. 325 data "richard m.nixon     ","37^1969 rfo vp r2"
  104. 326 data "gerald r.ford       ","38^1973     vp+r0"
  105. 327 data "jimmy carter        ","39^1977        d1"
  106. 328 data "ronald reagan       ","40^1981        r2"
  107. 399 rem ** quiz #4
  108. 400 data 11,3,4,5,6,"","","[144]","[158]"
  109. 401 rem * quiz title
  110. 402 data "[160][160][160][160][212][200][197][160][177][177][160][211][212][193][212][197][211][160][207][198][160][212][200][197][160][195][207][206][198][197][196][197][210][193][195][217][160][160][160][146]"
  111. 403 rem * format line
  112. 404 data "    in the order of their secession    "
  113. 405 rem * headers
  114. 406 data "[160][211][212][193][212][197][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]"
  115. 408 data "[160][196][193][212][197][160][211][197][195][197][196][197][196][160][160][160][160][160]"
  116. 409 rem ** quiz items in correct order
  117. 410 data "south carolina      ","20 december 1860 "
  118. 411 data "mississippi         ","9 january 1861   "
  119. 412 data "florida             ","10 january 1861  "
  120. 413 data "alabama             ","11 january 1861  "
  121. 414 data "georgia             ","19 january 1861  "
  122. 415 data "louisiana           ","26 january 1861  "
  123. 416 data "texas               ","2 march 1861     "
  124. 417 data "virginia            ","17 april 1861    "
  125. 418 data "arkansas            ","6 may 1861       "
  126. 419 data "north carolina      ","20 may 1861      "
  127. 420 data "tennessee           ","8 june 1861      "
  128. 499 rem ** quiz #5
  129. 500 data 20,6,14,1,8,"","[144]","",""
  130. 501 rem * quiz title
  131. 502 data "[160][160][201][205][208][207][210][212][193][206][212][160][194][193][212][212][204][197][211][160][207][198][160][212][200][197][160][195][201][214][201][204][160][215][193][210][160][160][160][146]"
  132. 503 rem * format line
  133. 504 data "       from the first to the last      "
  134. 505 rem * headers
  135. 506 data "[160][194][193][212][212][204][197][160][160][160][160][160][160][160][160][160][160][160][160][160][160]"
  136. 508 data "[160][196][193][212][197][255][211][212][193][212][197][160][160][160][160][160][160][160]"
  137. 509 rem ** quiz items in correct order
  138. 510 data "fort sumter         ","12 apr.61 s.caro."
  139. 511 data "1 manassas/bull run ","21 jul.61 virgin."
  140. 512 data "ft.donelson         ","16 feb.62 tennes."
  141. 513 data "monitor & merrimac  ","9 mar.62 virgini."
  142. 514 data "shiloh              ","6-7 apr.62 tenne."
  143. 515 data "the seven days      ","26 jun-2 jul. va."
  144. 516 data "2 manassas/bull run ","30 aug.62 virgin."
  145. 517 data "antietam            ","17 sep.62 maryla."
  146. 518 data "fredericksburg      ","13 dec.62 virgin."
  147. 519 data "chancellorsville    ","2-4 may 63 virgi."
  148. 520 data "siege of vicksburg  ","22may-4jul.missi."
  149. 521 data "gettysburg          ","1-3 jul.63 penns."
  150. 522 data "chickamauga         ","19-20 sep.tennes."
  151. 523 data "chattanooga         ","23-25 nov.tennes."
  152. 524 data "wilderness          ","5-6 may 64 virgi."
  153. 525 data "spotsylvania        ","8-12 may 64 virg."
  154. 526 data "cold harbor         ","3 jun.64 virgini."
  155. 527 data "petersburg siege    ","15jun-2apr.65 va."
  156. 528 data "march across georgia","16 nov-22 dec.64 "
  157. 529 data "appomatox           ","8 apr.65 virgini."
  158. 599 rem ** quiz #6
  159. 600 data 20,12,11,13,10,"[158]","","","[149]"
  160. 601 rem * quiz title
  161. 602 data "[160][160][160][212][200][197][160][197][213][210][207][208][197][193][206][160][211][197][212][212][204][197][205][197][206][212][160][207][198][160][193][205][197][210][201][195][193][160][160][146]"
  162. 603 rem * format line
  163. 604 data " arrange states in order of settlement "
  164. 605 rem * headers
  165. 606 data "[211][212][193][212][197][160][160][170][189][206][207][212][160][197][206][199][204][201][211][200][160]"
  166. 608 data "[160][217][197][193][210][255][211][197][212][212][204][197][196][160][194][217][160][160]"
  167. 609 rem ** quiz items in correct order
  168. 610 data "florida           * ","8 sep.1565^spain "
  169. 611 data "virginia            ","24 may 1607^engl."
  170. 612 data "new mexico        * ","1609^spain (mex.)"
  171. 613 data "new york          * ","1612-1614^holland"
  172. 614 data "massachusetts       ","21 dec.1620^engl."
  173. 615 data "maryland            ","27 feb.1634^engl."
  174. 616 data "rhode island        ","jun.1636^massach."
  175. 617 data "delaware          * ","31dec.1637^sweden"
  176. 618 data "north carolina      ","1653^england     "
  177. 619 data "wisconsin         * ","1660^france      "
  178. 620 data "vermont           * ","1666^france      "
  179. 621 data "michigan          * ","1668^france      "
  180. 622 data "south carolina      ","apr.1670^england "
  181. 623 data "arkansas          * ","1686^france      "
  182. 624 data "mississippi       * ","1699^france      "
  183. 625 data "georgia             ","12 feb.1733^engl."
  184. 626 data "california        * ","1769^spain (mex.)"
  185. 627 data "arizona           * ","1776^spain (mex.)"
  186. 628 data "oregon            * ","12 apr.1811^usa  "
  187. 629 data "utah              * ","24 jul.1847^usa  "
  188. 699 rem ** quiz #7
  189. 700 data 20,3,9,1,5,"[144]","[158]","[149]","[144]"
  190. 701 rem * quiz title
  191. 702 data "[160][160][160][160][160][160][160][160][160][160][160][160][193][205][197][210][201][195][193][206][160][215][193][210][211][160][160][160][160][160][160][160][160][160][160][160][160][160][160][146]"
  192. 703 rem * format line
  193. 704 data "  early colonial wars to modern wars   "
  194. 705 rem * headers
  195. 706 data "[160][215][193][210][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]"
  196. 708 data "[160][217][197][193][210][211][255][207][208][208][207][206][197][206][212][160][160][160]"
  197. 709 rem ** quiz items in correct order
  198. 710 data "king philip's war   ","1675-76^indians  "
  199. 711 data "king william's war  ","1690-97^france   "
  200. 712 data "queen anne's war    ","1702-13^fr.& spa."
  201. 713 data "tuscarora indian war","1711-13^indians  "
  202. 714 data "war of jenkin's ear ","1739-42^spain    "
  203. 715 data "king george's war   ","1743-48^france   "
  204. 716 data "french & indian war ","1754-63^fr.& ind."
  205. 717 data "revolutionary war   ","1775-83^england  "
  206. 718 data "tripolitan war      ","1802-4^tripoli   "
  207. 719 data "war/1812 & creek war","1812-15^engl/indi"
  208. 720 data "seminole indian wars","1817-18^35-43    "
  209. 721 data "mexican war         ","1846-48^mexico   "
  210. 722 data "civil war           ","1861-65^u.s.south"
  211. 723 data "sioux wars          ","1866-69,74-77    "
  212. 724 data "nez perce war       ","1877^indians     "
  213. 725 data "spanish-american war","1898^spain       "
  214. 726 data "world war i         ","1917-19^germany  "
  215. 727 data "world war ii        ","41-45^germ.& jap."
  216. 728 data "korean war          ","1950-53^n.korea  "
  217. 729 data "vietnam war         ","1963-72^n.vietnam"
  218. 799 rem ** quiz #8
  219. 800 data 20,5,13,2,10,"","[144]","","[144]"
  220. 801 rem * quiz title
  221. 802 data "[160][160][160][178][176][160][204][207][211][201][206][199][160][208][210][197][211][201][196][197][206][212][201][193][204][160][195][193][206][196][201][196][193][212][197][211][160][160][160][146]"
  222. 803 rem * format line
  223. 804 data "  put in order of elections they lost  "
  224. 805 rem * headers
  225. 806 data "[160][204][207][211][197][210][160][160][160][170][189][201][206][195][213][205][194][197][206][212][160]"
  226. 808 data "[160][217][197][193][210][255][215][201][206][206][197][210][160][160][160][160][160][160]"
  227. 809 rem ** quiz items in correct order
  228. 810 data "grover cleveland  *d","1888^b.harrison  "
  229. 811 data "benjamin harrison *r","1892^g.cleveland "
  230. 812 data "william j.bryan (3)d","1896^1900^1908   "
  231. 813 data "william h.taft    *r","1912^wils.& roos."
  232. 814 data "charles e.hughes   r","1916^w.wilson   *"
  233. 815 data "james m.cox        d","1920^harding     "
  234. 816 data "robert lafollette  p","1924^cool*& davis"
  235. 817 data "alfred e.smith     d","1928^h.hoover    "
  236. 818 data "herbert hoover    *r","1932^f.roosevelt "
  237. 819 data "alfred m.landon    r","1936^f.roosevelt*"
  238. 820 data "wendell willkie    r","1940^f.roosevelt*"
  239. 821 data "thomas e.dewey  (2)r","1944-48^roo*/tru*"
  240. 822 data "adlai stevenson (2)d","1952-6^eisenhower"
  241. 823 data "richard m.nixon   +r","1960^j.f.kennedy "
  242. 824 data "barry goldwater    r","1964^l.b.johnson*"
  243. 825 data "hubert h.humphrey  d","1968^r.m.nixon   "
  244. 826 data "george mcgovern    d","1972^r.m.nixon  *"
  245. 827 data "gerald r.ford     *r","1976^jimmy carter"
  246. 828 data "jimmy carter      *d","1980^r.reagan    "
  247. 829 data "walter f.mondale   d","1980^r.reagan   *"
  248.